﻿
Public Class Database

    Public SystemTables As List(Of Table)
    Public UserTables As List(Of Table)

    Public Sub New()
        MyBase.New()

        SystemTables = New List(Of Table)
        UserTables = New List(Of Table)
    End Sub

    Public ReadOnly Property TotalSize() As Integer
        Get
            TotalSize = 0

            For Each t As Table In SystemTables
                TotalSize += t.TotalSize
            Next

            For Each t As Table In UserTables
                TotalSize += t.TotalSize
            Next

        End Get
    End Property

End Class
